perm filename ITVTST.SAI[NEW,AIL] blob sn#408292 filedate 1979-01-08 generic text, type T, neo UTF8
BEGIN
   INTEGER ARRAY Q[1:100];
   INTEGER ITEMVAR ARRAY QQ[1:100];
   ARRBLT(Q[1],Q[2],10);
   ARRBLT(QQ[1],QQ[2],10);
END